|
1600
|
How do I set a computated cell individually
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Columns.Add "Number"
.Columns.Add "Format"
With .Items
h = .AddItem("1.23")
.CellValueFormat(h,1) = 2
.CellValue(h,1) = "2 * %0 + ` (2 * Number)`"
h = .AddItem("1.23")
.CellValueFormat(h,1) = 2
.CellValue(h,1) = "3 * %0 + ` (3 * Number)`"
h = .AddItem("1.23")
.CellValueFormat(h,1) = 2
.CellValue(h,1) = "currency(%0) + ` ( Currency(Number) )`"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1599
|
How can I hide a specific hour
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.DrawGridLines = -1
.Columns.Add "Default"
With .Chart
.AllowInsideZoom = True
.FirstWeekDay = 1
.FirstVisibleDate = #3/31/2013#
.PaneWidth(False) = 52
.LevelCount = 2
.UnitScale = 65536
.Level(1).Label = "<font ;6><%h%></font>"
.UnitWidth = 14
.DrawGridLines = -1
.AllowInsideZoom = True
.DefaultInsideZoomFormat.InsideUnit = 1048576
.AllowResizeInsideZoom = False
.InsideZoomOnDblClick = False
With .InsideZooms
.SplitBaseLevel = False
.DefaultWidth = 0
End With
With .InsideZooms
.Add #3/31/2013 11:00:00 PM#
End With
End With
With .Items
.AddItem "Item"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1598
|
Is it possible to define the keys of the drop down values to be strings rather than numeric values
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_Change(Item,ColIndex,NewValue)
With G2antt1
alert( "NewValue is" )
alert( NewValue )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
With .Columns.Add("DropDownList-String").Editor
.EditType = 3
.AddItem 1,"NYC|New York City"
.AddItem 2,"CJN|Cluj Napoca"
End With
With .Columns.Add("DropDownList-Numeric").Editor
.EditType = 3
.AddItem 1,"New York City"
.AddItem 2,"Cluj Napoca"
End With
With .Items
.CellValue(.AddItem("NYC"),1) = 2
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
1597
|
I have an edit field, when going to edit mode, the rightmost part is shown. Is it possible to show the left part instead
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Columns.Add("Edit")
.Width = 64
.AllowSizing = False
With .Editor
.EditType = 8
.Mask = ";;;rich"
End With
End With
.Columns.Add "Empty"
With .Items
.AddItem "This is a bit ot long text"
.AddItem ""
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1596
|
I have a drop down field, the control shows the rightmost part of the selected caption. Is it possible to show the left part
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Columns.Add("DropDown")
.Width = 64
.AllowSizing = False
With .Editor
.DropDownAlignment = 32 ' &H20
.EditType = 2
.AddItem 1,"First item. This is a bit ot long text"
.AddItem 2,"Second item. This is a bit ot long text"
.AddItem 3,"Third item. This is a bit ot long text"
.Mask = ";;;rich"
End With
End With
With .Columns.Add("PickEdit")
.Width = 64
.AllowSizing = False
With .Editor
.DropDownAlignment = 32 ' &H20
.EditType = 14
.AddItem 1,"First item. This is a bit ot long text"
.AddItem 2,"Second item. This is a bit ot long text"
.AddItem 3,"Third item. This is a bit ot long text"
.Mask = ";;;rich"
End With
End With
.Columns.Add "Empty"
With .Items
.CellValue(.AddItem("First item. This is a bit ot long text"),1) = "Second item. This is a bit ot long text"
h = .AddItem("First item. This is a bit ot long text")
With .CellEditor(h,0)
.DropDownAlignment = 32 ' &H20
.EditType = 2
.AddItem 1,"First item. This is a bit ot long text"
.AddItem 2,"Second item. This is a bit ot long text"
.AddItem 3,"Third item. This is a bit ot long text"
End With
.CellValue(h,1) = "Second item. This is a bit ot long text"
With .CellEditor(h,1)
.DropDownAlignment = 32 ' &H20
.EditType = 14
.AddItem 1,"First item. This is a bit ot long text"
.AddItem 2,"Second item. This is a bit ot long text"
.AddItem 3,"Third item. This is a bit ot long text"
End With
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1595
|
Is there a property for the back color of the dropdown field
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Columns.Add("Date").Editor
.EditType = 7
.Option(55) = 15790320
.Option(56) = 65793
End With
.Items.AddItem #1/1/2001#
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1594
|
Is it possible to change a back color of the field/cell when it takes a focus
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_EditClose()
With G2antt1
With .Items
.ClearCellBackColor .FocusItem,G2antt1.FocusColumnIndex
End With
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_EditOpen()
With G2antt1
With .Items
.CellBackColor(.FocusItem,G2antt1.FocusColumnIndex) = RGB(255,0,0)
End With
With .Items
.CellValue(.FocusItem,G2antt1.FocusColumnIndex) = G2antt1.Items.CellValue(G2antt1.Items.FocusItem,G2antt1.FocusColumnIndex)
End With
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.FullRowSelect = 0
.Columns.Add("C1").Editor.EditType = 1
.Columns.Add("C2").Editor.EditType = 1
With .Items
.CellValue(.AddItem("v1"),1) = "v2"
.CellValue(.AddItem("v3"),1) = "v4"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
1593
|
How can I display the current date mask, but still allow empty values
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.CauseValidateValue = True
.FullRowSelect = 0
.DrawGridLines = -2
With .Columns.Add("Date").Editor
.EditType = 7
.Mask = "!99/99/9999;1;;empty=1,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!" & _
",select=4,overtype"
End With
With .Items
.AddItem
.AddItem #1/1/2001#
.AddItem
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1592
|
How can I align the days in a DateType editor
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.Columns.Add "DropDown"
With .Items
With .CellEditor(.AddItem(#1/1/2001#),0)
.EditType = 7
.DropDownAlignment = 2
End With
With .CellEditor(.AddItem(#1/1/2001#),0)
.EditType = 7
.DropDownAlignment = 1
End With
With .CellEditor(.AddItem(#1/1/2001#),0)
.EditType = 7
.DropDownAlignment = 0
End With
With .CellEditor(.AddItem(#1/1/2001#),0)
.EditType = 7
.DropDownAlignment = 32 ' &H20
End With
With .CellEditor(.AddItem(#1/1/2001#),0)
.EditType = 7
.DropDownAlignment = 33 ' &H20 Or AlignmentEnum.CenterAlignment
End With
With .CellEditor(.AddItem(#1/1/2001#),0)
.EditType = 7
.DropDownAlignment = 34 ' &H20 Or AlignmentEnum.RightAlignment
End With
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
1591
|
How can I align the drop down portion rather the inside captions
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.Columns.Add("DropDown").Editor.EditType = 7
With .Items
With .CellEditor(.AddItem(#1/1/2001#),0)
.EditType = 7
.DropDownAlignment = 32 ' &H20
End With
With .CellEditor(.AddItem(#1/1/2001#),0)
.EditType = 7
.DropDownAlignment = 16
End With
.AddItem #1/1/2001#
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
1590
|
Is it possible to show a message that the field is empty
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.DrawGridLines = -2
.FullRowSelect = 0
With .Columns.Add("Float")
With .Editor
.EditType = 8
.Mask = ";;;float,digits=0,grouping=,invalid=empty,warning=invalid character"
End With
End With
.Items.AddItem 192278
.Items.AddItem 1000
End With
End Function
</SCRIPT>
</BODY>
|
|
1589
|
How can I mask a date
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.CauseValidateValue = True
.FullRowSelect = 0
.DrawGridLines = -2
.Columns.Add "Date"
.Columns.Add "Mask"
With .Items
h = .AddItem(#1/1/2001#)
With .CellEditor(h,0)
.EditType = 7
.Mask = "{1,12}/{1,31}/{1950,2050};1;;select=1,warning=Invalid character!,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b" & _
">!,validateas=1"
End With
.CellValue(h,1) = .CellEditor(h,0).Mask
h = .AddItem(#1/1/2001#)
With .CellEditor(h,0)
.EditType = 7
.Mask = "!99/99/9999;1;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,s" & _
"elect=4,overtype"
End With
.CellValue(h,1) = .CellEditor(h,0).Mask
h = .AddItem(#1/1/2001#)
With .CellEditor(h,0)
.EditType = 7
.Mask = "!99/99/9999;;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,se" & _
"lect=4,overtype"
End With
.CellValue(h,1) = .CellEditor(h,0).Mask
h = .AddItem(#1/1/2001#)
With .CellEditor(h,0)
.EditType = 7
.Mask = "!99/99/9999;; ;select=4,overtype,empty,warning=Invalid character!,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</" & _
"b>!,validateas=1"
End With
.CellValue(h,1) = .CellEditor(h,0).Mask
h = .AddItem(#1/1/2001#)
With .CellEditor(h,0)
.EditType = 7
.Mask = "![0-9 ][0-9 ]/[0-9 ][0-9 ]/[0-9 ][0-9 ][0-9 ][0-9 ];1;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%m" & _
"ask%>'</b>!,warning=Invalid character!,select=4,leading= "
End With
.CellValue(h,1) = .CellEditor(h,0).Mask
h = .AddItem(#1/1/2001#)
.FormatCell(h,0) = "len(value) ? shortdateF(value) : ``"
With .CellEditor(h,0)
.EditType = 7
.Mask = "!99/99/9999;1;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,s" & _
"elect=4,overtype,leading"
End With
.CellValue(h,1) = .CellEditor(h,0).Mask
h = .AddItem(#1/1/2001#)
.FormatCell(h,0) = "len(value) ? shortdateF(value) : ``"
With .CellEditor(h,0)
.EditType = 7
.Mask = "!00/00/0000;1;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,s" & _
"elect=4,overtype,leading"
End With
.CellValue(h,1) = .CellEditor(h,0).Mask
h = .AddItem(#1/1/2001#)
.FormatCell(h,0) = "len(value) ? shortdateF(value) : ``"
With .CellEditor(h,0)
.EditType = 7
.Mask = "!00/00/0000;;0;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,s" & _
"elect=4,overtype"
End With
.CellValue(h,1) = .CellEditor(h,0).Mask
h = .AddItem(#1/1/2001#)
.FormatCell(h,0) = "len(value) ? shortdateF(value) : ``"
With .CellEditor(h,0)
.EditType = 7
.Mask = "!00/00/0000;;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,se" & _
"lect=1,overtype"
End With
.CellValue(h,1) = .CellEditor(h,0).Mask
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1588
|
How can I display and edit an integer number to show grouping digits too ( no decimals)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
With .Columns.Add("Float")
.FormatColumn = "value format `0`"
With .Editor
.EditType = 8
.Mask = ";;;float,digits=0"
End With
End With
.Items.AddItem 192278
End With
End Function
</SCRIPT>
</BODY>
|
|
1587
|
How can I display and edit a float number to show grouping digits too
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
With .Columns.Add("Float")
.FormatColumn = "value format ``"
With .Editor
.EditType = 8
.Mask = ";;;float"
End With
End With
.Items.AddItem 192278
End With
End Function
</SCRIPT>
</BODY>
|
|
1586
|
How can I mask a phone number
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.CauseValidateValue = True
.DrawGridLines = -2
.FullRowSelect = 0
.Columns.Add("Phone").Editor.EditType = 8
With .Items
h = .AddItem()
With .CellEditor(h,0)
.EditType = 8
.Mask = "!(999) 000 0000;1;;select=1,empty,overtype,warning=invalid characer,invalid=The value you entered isn't appropriate for the inp" & _
"ut mask <b>'<%mask%>'</b> specified for this field."
End With
h = .AddItem("0123")
With .CellEditor(h,0)
.EditType = 8
.Mask = "!(999) 000 0000;2;;select=4"
End With
h = .AddItem("0123")
With .CellEditor(h,0)
.EditType = 8
.Mask = "`Phone: `!(999) 000-0000"
End With
h = .AddItem("(074) 876-1222")
With .CellEditor(h,0)
.EditType = 8
.Mask = "!(999) 000-0000;0"
End With
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
1585
|
Is it possible to display the ColorType fields using RGB format
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.Columns.Add("Color").Editor.EditType = 9
With .Items
.AddItem 255
h = .AddItem(255)
With .CellEditor(h,0)
.EditType = 9
.Mask = "`RGB(`{0,255}\,{0,255}\,{0,255}`)`;;0"
End With
h = .AddItem(255)
With .CellEditor(h,0)
.EditType = 9
.Mask = "`&H`XXXXXXXX`&`;;0;overtype,insertype,warning=Wrong!"
End With
h = .AddItem(255)
With .CellEditor(h,0)
.EditType = 9
.Mask = "`0x`XX `0x`XX `0x`XX;;0;overtype,insertype,warning=Wrong!"
End With
h = .AddItem(255)
With .CellEditor(h,0)
.EditType = 9
.Mask = "R{0,255} G{0,255} B{0,255};;0;overtype,insertype,warning=Wrong!"
End With
h = .AddItem(255)
With .CellEditor(h,0)
.EditType = 9
.Mask = "`(hexa) RGB 0x`XXXXXX;;0;overtype,insertype,warning=Wrong!"
End With
h = .AddItem(255)
With .CellEditor(h,0)
.EditType = 9
.Mask = "`(decimal) Red: `{0,255}` Green: `{0,255}` Blue: `{0,255};;0;overtype,insertype,warning=Wrong!"
End With
h = .AddItem(255)
With .CellEditor(h,0)
.EditType = 9
.Mask = "`(combine) Red: `{0,255}` Green: 0x`XX` Blue: `{0,255};;0;overtype,insertype,warning=Wrong!"
End With
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
1584
|
How can I specify a different color for bars that cross over the non-working part of the chart
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.Columns.Add "Task"
With .Chart.Bars
.Copy("Task","STask").Color = RGB(255,0,0)
.Add("Task:STask").Shortcut = "TS"
End With
With .Chart
.PaneWidth(False) = 96
.FirstVisibleDate = #1/1/2001#
.NonworkingDaysColor = .Bars.Item("STask").Color
End With
With .Items
.AddBar .AddItem("Task 1"),"TS",#1/2/2001#,#1/16/2001#
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
1583
|
How can I merge two columns
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_AddItem(Item)
With G2antt1
.Items.CellMerge(Item,0) = 1
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.MarkSearchColumn = False
.TreeColumnIndex = -1
.DrawGridLines = -1
.Columns.Add("C1").Def(16) = False
.Columns.Add "C2"
.Columns.Add "C3"
With .Items
.AddItem "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
.AddItem "This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines."
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
1582
|
How can I expand an item once the user clicks the column's checkbox
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_CellStateChanged(Item,ColIndex)
With G2antt1
With .Items
.ExpandItem(Item) = .CellState(Item,ColIndex)
End With
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Columns
With .Add("")
.Def(0) = True
.AllowSizing = False
.Width = 18
.PartialCheck = True
End With
.Add "Tasks"
End With
.ShowFocusRect = False
.HasButtons = 0
.TreeColumnIndex = 1
.Indent = 14
.ExpandOnDblClick = False
.LinesAtRoot = 0
With .Items
h = .AddItem("")
.CellState(h,0) = 1
.CellValue(h,1) = "Project"
hChild = .InsertItem(h,,"")
.CellValue(hChild,1) = "Task 1"
hChild = .InsertItem(h,,"")
.CellValue(hChild,1) = "Task 2"
.ExpandItem(h) = True
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1581
|
How can I define a column with check-box
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Columns
With .Add("")
.Def(0) = True
.AllowSizing = False
.Width = 18
.PartialCheck = True
End With
.Add "Tasks"
End With
.ShowFocusRect = False
.HasButtons = 0
.TreeColumnIndex = 1
.Indent = 14
.ExpandOnDblClick = False
.LinesAtRoot = 0
With .Items
h = .AddItem("")
.CellState(h,0) = 1
.CellValue(h,1) = "Project"
hChild = .InsertItem(h,,"")
.CellValue(hChild,1) = "Task 1"
hChild = .InsertItem(h,,"")
.CellValue(hChild,1) = "Task 2"
.ExpandItem(h) = True
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1580
|
We need to know how it's possibile to have the bars on the same line and not in a different line
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.DrawGridLines = -1
With .Chart
.DrawGridLines = -1
.FirstVisibleDate = #1/1/2002#
.Bars.Item("Task").OverlaidType = 515 ' OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or OverlaidBarsTypeEnum.exOverlaidBarsStack
.PaneWidth(False) = 128
End With
.Columns.Add "Task"
With .Items
h = .AddItem("Tasks")
.AddBar h,"Task",#1/2/2002#,#1/7/2002#,"A"
.AddBar h,"Task",#1/3/2002#,#1/8/2002#,"B"
.AddBar h,"Task",#1/4/2002#,#1/9/2002#,"C"
.ItemBar(h,"A",33) = 255
.AddLink "AB",h,"A",h,"B"
.AddLink "BC",h,"B",h,"C"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1579
|
The Change event gets me the today date. How can I find what user typed
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_Change(Item,ColIndex,NewValue)
With G2antt1
alert( "NewValue:" )
alert( NewValue )
alert( "EditingValue:" )
alert( .EditingText )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Chart.PaneWidth(True) = 0
.Columns.Add("Edit").Editor.EditType = 7
.Items.AddItem #1/1/2001#
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1578
|
How can I add a footer row
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.ShowLockedItems = True
.DrawGridLines = 2
.Columns.Add "C1"
.Columns.Add "C2"
With .Items
.LockedItemCount(2) = 1
h = .LockedItem(2,0)
.ItemBackColor(h) = RGB(128,128,128)
.ItemForeColor(h) = RGB(255,255,255)
.CellValue(h,0) = "footer c1"
.CellValue(h,1) = "footer c2"
.CellValue(.AddItem("cell"),1) = "cell"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
1577
|
How can I add a header row
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.ShowLockedItems = True
.DrawGridLines = 2
.Columns.Add "C1"
.Columns.Add "C2"
With .Items
.LockedItemCount(0) = 1
h = .LockedItem(0,0)
.ItemBackColor(h) = RGB(128,128,128)
.ItemForeColor(h) = RGB(255,255,255)
.CellValue(h,0) = "footer c1"
.CellValue(h,1) = "footer c2"
.CellValue(.AddItem("cell"),1) = "cell"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
1576
|
How can I fix a column, while other sizable and fill the control's client
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.ColumnAutoResize = True
.Columns.Add "Sizable"
With .Columns.Add("F")
.AllowSizing = False
.Width = 16
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
1575
|
How can I programmatically add more columns to the sort bar and other to be sorted, but not included in the sort bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.SortBarVisible = True
With .Columns
.Add 0
.Add 1
.Add 2
.Add 3
.Add 4
End With
.Layout = "multiplesort=""C3:1 C4:2"";singlesort=""C2:1"""
End With
End Function
</SCRIPT>
</BODY>
|
|
1574
|
I'm using different bar types, in order to use different colours. The problem I'm having is that when two bars of different types overlap, and should in the histogram show as overallocated, they instead overlap here too, and show as single unit. Is there a way I can correctly show this as an overallocation
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
With .Chart
.FirstVisibleDate = #1/1/2001#
.HistogramVisible = True
.HistogramHeight = 32
.Bars.Item("Task").HistogramPattern = 6
.PaneWidth(False) = 128
End With
.Columns.Add "Column"
With .Items
.AddBar .AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#
h = .AddItem("Item 2")
.AddBar h,"Task",#1/3/2001#,#1/7/2001#
.ItemBar(h,"",33) = 255
.AddBar .AddItem("Item 3"),"Task",#1/6/2001#,#1/9/2001#
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
1573
|
Is it possible to assign a different EBN to a specified bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .VisualAppearance
.Add 1,"c:\exontrol\images\normal.ebn"
.Add 2,"c:\exontrol\images\pushed.ebn"
End With
With .Chart
.FirstVisibleDate = #1/1/2001#
.PaneWidth(False) = 128
End With
.Columns.Add "Tasks"
With .Items
h = .AddItem("Task 1")
.AddBar h,"Task",#1/2/2001#,#1/4/2001#
h = .AddItem("Task 2")
.AddBar h,"Task",#1/2/2001#,#1/4/2001#
.ItemBar(h,"",33) = 255
h = .AddItem("Task 3")
.AddBar h,"Task",#1/2/2001#,#1/4/2001#
.ItemBar(h,"",33) = 16777216
h = .AddItem("Task 4")
.AddBar h,"Task",#1/2/2001#,#1/4/2001#
.ItemBar(h,"",33) = 16777471
h = .AddItem("Task 5")
.AddBar h,"Task",#1/2/2001#,#1/4/2001#
.ItemBar(h,"",33) = 33619967
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1572
|
How can I provide a mask for a date column
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_Change(Item,ColIndex,NewValue)
With G2antt1
alert( "Prev Value " )
alert( .Items.CellValue(Item,ColIndex) )
alert( "Check and Update the NewValue" )
alert( NewValue )
NewValue = #1/1/2001#
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.MarkSearchColumn = False
With .Columns.Add("Date")
.FormatColumn = "day(value) + `/` + month(value) + `/` + year(value)"
With .Editor
.EditType = 7
.Mask = "{1,12}\/{1,31}\/{1,2099}"
End With
End With
.Items.AddItem #1/1/2001#
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1571
|
I am trying to introduce a custom tool tip to those particular cells. I have it working and I know I can style the font etc. however, what I would like to do is style the tooltip container itself like add some padding or add a border color. Is this possible
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.ToolTipDelay = 1
.ToolTipWidth = 364
.VisualAppearance.Add 1,"C:\Program Files\Exontrol\ExG2antt\Sample\EBN\frame.ebn"
.Background(64) = &H1000000
.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
End With
End Function
</SCRIPT>
</BODY>
|
|
1570
|
Is it possible to edit a float number without using of e/E/d/D (exponent) and +/- (signs) characters
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
With .Columns.Add("Edit").Editor
.EditType = 1
.Numeric = 770 ' NumericEnum.exDisableSigns Or NumericEnum.exFloatInteger
End With
.Items.AddItem 1.22
End With
End Function
</SCRIPT>
</BODY>
|
|
1569
|
How can I edit a float number with no using of e/E/d/D and + character
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
With .Columns.Add("Edit").Editor
.EditType = 1
.Numeric = 258 ' NumericEnum.exDisablePlus Or NumericEnum.exFloatInteger
End With
.Items.AddItem 1.22
End With
End Function
</SCRIPT>
</BODY>
|
|
1568
|
Is it possible to edit a float number with no using of e/E/d/D (exponent) characters
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
With .Columns.Add("Edit").Editor
.EditType = 1
.Numeric = 2
End With
.Items.AddItem 1.22
End With
End Function
</SCRIPT>
</BODY>
|
|
1567
|
How can I edit an integer with no using of +/- signs
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
With .Columns.Add("Edit").Editor
.EditType = 1
.Numeric = 1023 ' &Hfc Or NumericEnum.exDisableSigns Or NumericEnum.exFloatInteger Or NumericEnum.exFloat
End With
.Items.AddItem 1
End With
End Function
</SCRIPT>
</BODY>
|
|
1566
|
When I'm trying to show string with "line break" character (vbCrLF) in a textbox, it shows 2 squares. Is there any way to hide these squares
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
With .Columns
.Add "Value"
With .Add("CellSingleLine = False")
.ComputedField = "%0"
.Def(16) = False
End With
With .Add("FormatColumn/replace CRLF")
.ComputedField = "%0"
.FormatColumn = "value replace `\r\n` with ``"
End With
With .Add("FormatColumn/replace TAB,CRLF")
.ComputedField = "%0"
.FormatColumn = "(value replace `\t` with ``) replace `\r\n` with ``"
End With
End With
With .Items
.AddItem "a\ta\r\nb\tb"
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
1565
|
I am using the Chart.ShowLinksColor property, the question is it is possible to prevent changing the bar's color
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.DefaultItemHeight = 24
.Columns.Add "Task"
With .Chart
.LevelCount = 2
.FirstVisibleDate = #1/1/2001#
.PaneWidth(False) = 48
.NonworkingDays = 0
.LinksStyle = 0
.ShowLinksColor(17) = RGB(255,0,0) ' ShowLinksEnum.exUpdateColorLinksOnly Or ShowLinksEnum.exShowLinksStartFrom
.ShowLinksColor(18) = RGB(0,255,0) ' ShowLinksEnum.exUpdateColorLinksOnly Or ShowLinksEnum.exShowLinksEndTo
End With
With .Items
h1 = .AddItem("Task 1")
.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,""
h2 = .AddItem("Task 2")
.AddBar h2,"Task",#1/2/2001#,#1/4/2001#,""
.ItemBar(h2,"",257) = True
.AddLink "L1",h1,"",h2,""
h3 = .AddItem("Task 3")
.AddBar h3,"Task",#1/2/2001#,#1/4/2001#,""
.AddLink "L2",h2,"",h3,""
.SchedulePDM 0,""
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1564
|
Apparently, the links are shown on the back. Is there any option to bring them in front
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Columns.Add "Tasks"
With .Chart
.FirstVisibleDate = #9/19/2006#
.PaneWidth(0) = 64
.NonworkingDaysPattern = 1
.ShowLinks = 17 ' ShowExtendedLinksEnum.exShowLinksFront Or ShowExtendedLinksEnum.exShowExtendedLinks
End With
With .Items
h1 = .AddItem("Task 1")
.AddBar h1,"Task",#9/20/2006#,#9/22/2006#
h2 = .AddItem("Task 2")
.AddBar h2,"Task",#9/26/2006#,#9/28/2006#
.ItemBar(h2,"",257) = True
.AddLink "L1",h1,"",h2,""
.Link("L1",12) = "L1"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1563
|
How can I enable the extended links feature
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.DefaultItemHeight = 24
.Columns.Add "Task"
With .Chart
.LevelCount = 2
.FirstVisibleDate = #1/1/2001#
.PaneWidth(False) = 48
.NonworkingDays = 0
.LinksStyle = 0
.ShowLinks = 1
End With
With .Items
h1 = .AddItem("Task 1")
.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,""
h2 = .AddItem("Task 2")
.AddBar h2,"Task",#1/2/2001#,#1/4/2001#,""
.AddLink "L1",h1,"",h2,""
h3 = .AddItem("Task 3")
.AddBar h3,"Task",#1/2/2001#,#1/4/2001#,""
.AddLink "L2",h3,"",h2,""
.SchedulePDM 0,""
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1562
|
How do I count all bars in the chart
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Columns.Add "Task"
With .Chart
.PaneWidth(False) = 128
.FirstVisibleDate = #1/1/2001#
End With
With .Items
hSummary = .AddItem("Task")
.AddBar hSummary,"Task",#1/2/2001#,#1/5/2001#,"K1"
hTask = .InsertItem(hSummary,,"Task A")
.AddBar hTask,"Task",#1/2/2001#,#1/5/2001#,"K1"
.AddBar .InsertItem(hTask,,"Task A.1"),"Task",#1/3/2001#,#1/5/2001#,"K11"
.AddBar .InsertItem(hTask,,"Task A.2"),"Task",#1/3/2001#,#1/5/2001#,"K12"
hTask = .InsertItem(hSummary,,"Task B")
.AddBar hTask,"Task",#1/2/2001#,#1/5/2001#,"K2"
hTask = .InsertItem(hTask,,"Task B.1")
.AddBar hTask,"Task",#1/5/2001#,#1/9/2001#,"K21"
.ExpandItem(0) = True
alert( "Count: " )
alert( .ItemBar(0,"<*>",256) )
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1561
|
Is there any property to count the all child bars of a specified item ( all descendents )
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Columns.Add "Task"
With .Chart
.PaneWidth(False) = 128
.FirstVisibleDate = #1/1/2001#
.Bars.Copy("Task","CountTask").Color = RGB(0,255,0)
End With
With .Items
hSummary = .AddItem("Project")
.ItemBold(hSummary) = True
hTask = .InsertItem(hSummary,,"Task A")
.AddBar hTask,"CountTask",#1/2/2001#,#1/5/2001#,"K1"
.AddBar .InsertItem(hTask,,"Task A.1"),"CountTask",#1/3/2001#,#1/5/2001#,"K11"
.AddBar .InsertItem(hTask,,"Task A.2"),"CountTask",#1/3/2001#,#1/5/2001#,"K12"
hTask = .InsertItem(hSummary,,"Task B")
.AddBar hTask,"CountTask",#1/2/2001#,#1/5/2001#,"K2"
hTask = .InsertItem(hTask,,"Task B.1")
.AddBar hTask,"CountTask",#1/5/2001#,#1/9/2001#,"K21"
.ExpandItem(0) = True
.DefaultItem = .ItemByIndex(0)
alert( "Count: " )
alert( .ItemBar(-3,"<*>",256) )
.DefaultItem = 0
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1560
|
Is there any property to count the child bars of a specified item ( leaf descendents )
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Columns.Add "Task"
With .Chart
.PaneWidth(False) = 128
.FirstVisibleDate = #1/1/2001#
.Bars.Copy("Task","CountTask").Color = RGB(0,255,0)
End With
With .Items
hSummary = .AddItem("Project")
.ItemBold(hSummary) = True
hTask = .InsertItem(hSummary,,"Task A")
.AddBar hTask,"Task",#1/2/2001#,#1/5/2001#,"K1"
.AddBar .InsertItem(hTask,,"Task A.1"),"CountTask",#1/3/2001#,#1/5/2001#,"K11"
.AddBar .InsertItem(hTask,,"Task A.2"),"CountTask",#1/3/2001#,#1/5/2001#,"K12"
hTask = .InsertItem(hSummary,,"Task B")
.AddBar hTask,"Task",#1/2/2001#,#1/5/2001#,"K2"
hTask = .InsertItem(hTask,,"Task B.1")
.AddBar hTask,"CountTask",#1/5/2001#,#1/9/2001#,"K21"
.ExpandItem(0) = True
.DefaultItem = .ItemByIndex(0)
alert( "Count: " )
alert( .ItemBar(-2,"<*>",256) )
.DefaultItem = 0
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1559
|
Is there any property to count the child bars of a specified item ( direct descendents )
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Columns.Add "Task"
With .Chart
.PaneWidth(False) = 128
.FirstVisibleDate = #1/1/2001#
.Bars.Copy("Task","CountTask").Color = RGB(0,255,0)
End With
With .Items
hSummary = .AddItem("Project")
.ItemBold(hSummary) = True
hTask = .InsertItem(hSummary,,"Task A")
.AddBar hTask,"CountTask",#1/2/2001#,#1/5/2001#,"K1"
.AddBar .InsertItem(hTask,,"Task A.1"),"Task",#1/3/2001#,#1/5/2001#,"K11"
.AddBar .InsertItem(hTask,,"Task A.2"),"Task",#1/3/2001#,#1/5/2001#,"K12"
hTask = .InsertItem(hSummary,,"Task B")
.AddBar hTask,"CountTask",#1/2/2001#,#1/5/2001#,"K2"
hTask = .InsertItem(hTask,,"Task B.1")
.AddBar hTask,"Task",#1/5/2001#,#1/9/2001#,"K21"
.ExpandItem(0) = True
.DefaultItem = .ItemByIndex(0)
alert( "Count: " )
alert( .ItemBar(-1,"<*>",256) )
.DefaultItem = 0
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1558
|
How can I define all child items to belong to a summary bar (DefineSummaryBars-3)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Columns.Add "Task"
With .Chart
.PaneWidth(False) = 128
.FirstVisibleDate = #1/1/2001#
End With
With .Items
hSummary = .AddItem("Summary")
.AddBar hSummary,"Summary",#1/2/2001#,#1/2/2001#,""
hTask = .InsertItem(hSummary,,"Task A")
.AddBar hTask,"Task",#1/2/2001#,#1/5/2001#,"K1"
hTask = .InsertItem(hTask,,"Task A.1")
.AddBar hTask,"Task",#1/3/2001#,#1/5/2001#,"K11"
hTask = .InsertItem(hSummary,,"Task B")
.AddBar hTask,"Task",#1/2/2001#,#1/5/2001#,"K2"
hTask = .InsertItem(hTask,,"Task B.1")
.AddBar hTask,"Task",#1/5/2001#,#1/9/2001#,"K21"
.DefineSummaryBars hSummary,"",-3,"<K*>"
.ExpandItem(0) = True
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1557
|
Can I define automatically the leaf descendents of the summary bar (DefineSummaryBars-2)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Columns.Add "Task"
With .Chart
.PaneWidth(False) = 128
.FirstVisibleDate = #1/1/2001#
End With
With .Items
hSummary = .AddItem("Summary")
.AddBar hSummary,"Summary",#1/2/2001#,#1/2/2001#,""
hTask = .InsertItem(hSummary,,"Task A")
.AddBar hTask,"1Task",#1/2/2001#,#1/5/2001#,"K1"
hTask = .InsertItem(hTask,,"Task A.1")
.AddBar hTask,"Task",#1/3/2001#,#1/5/2001#,"K11"
hTask = .InsertItem(hSummary,,"Task B")
.AddBar hTask,"1Task",#1/2/2001#,#1/5/2001#,"K2"
hTask = .InsertItem(hTask,,"Task B.1")
.AddBar hTask,"Task",#1/5/2001#,#1/9/2001#,"K21"
.DefineSummaryBars hSummary,"",-2,"<K*>"
.ExpandItem(0) = True
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1556
|
How can I assign the childs bars to a summary bar (DefineSummaryBars-1)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Columns.Add "Task"
With .Chart
.PaneWidth(False) = 128
.FirstVisibleDate = #1/1/2001#
End With
With .Items
hSummary = .AddItem("Summary")
.AddBar hSummary,"Summary",#1/2/2001#,#1/2/2001#,""
hTask = .InsertItem(hSummary,,"Task A")
.AddBar hTask,"Task",#1/2/2001#,#1/5/2001#,"K1"
hTask = .InsertItem(hSummary,,"Task B")
.AddBar hTask,"Task",#1/4/2001#,#1/8/2001#,"K2"
.ExpandItem(hSummary) = True
.DefineSummaryBars hSummary,"",-1,"<*>"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1555
|
Is it possible to define a summary bar to include all bars in the chart (DefineSummaryBars-0)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Columns.Add "Task"
With .Chart
.PaneWidth(False) = 128
.FirstVisibleDate = #1/1/2001#
End With
With .Items
hSummary = .AddItem("Summary")
.AddBar hSummary,"Summary",#1/2/2001#,#1/2/2001#,"summary"
.AddBar .AddItem("Task A"),"Task",#1/2/2001#,#1/5/2001#,"K1"
.AddBar .AddItem("Task B"),"Task",#1/6/2001#,#1/9/2001#,"K2"
.AddBar .AddItem("Task C"),"Task",#1/11/2001#,#1/14/2001#,"K3"
.DefineSummaryBars hSummary,"summary",0,"<K*>"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1554
|
Is there any way to "unselect" radio group
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_DblClick(Shift,X,Y)
With G2antt1
With .Items
h = .CellChecked(1234)
.CellHasCheckBox(0,h) = True
.CellState(0,h) = 0
.CellHasCheckBox(0,h) = False
End With
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_SelectionChanged()
With G2antt1
With .Items
.CellState(.FocusItem,0) = 1
End With
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.MarkSearchColumn = False
.SelBackColor = RGB(255,255,128)
.SelForeColor = RGB(0,0,0)
.Columns.Add "Default"
With .Items
h = .AddItem("Radio 1")
.CellHasRadioButton(h,0) = True
.CellRadioGroup(h,0) = 1234
h = .AddItem("Radio 2")
.CellHasRadioButton(h,0) = True
.CellRadioGroup(h,0) = 1234
.CellState(h,0) = 1
h = .AddItem("Radio 3")
.CellHasRadioButton(h,0) = True
.CellRadioGroup(h,0) = 1234
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
1553
|
The Column.Alignment property does not seem to work for cells with images in them. What can be done
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.TreeColumnIndex = -1
.DrawGridLines = -1
.HeaderHeight = 24
.DefaultItemHeight = 24
With .Columns.Add("Image")
.AllowSizing = False
.Width = 32
.HTMLCaption = "<img>1</img>"
.HeaderAlignment = 1
.Alignment = 1
.Def(17) = 1
End With
.Columns.Add "Rest"
With .Items
.AddItem "<img>1</img>"
.AddItem "<img>2</img>"
.AddItem "<img>3</img>"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1552
|
Is there any way to determine in a bar would overlay another bar or to not allow this and get some error indication
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_BarResize(Item,Key)
With G2antt1
.Refresh
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.DefaultItemHeight = 22
.Columns.Add "InterectBars"
With .Chart
.PaneWidth(False) = 48
.FirstVisibleDate = #1/1/2001#
With .Bars.Item("Task")
.OverlaidType = 2
.Overlaid(2) = "ERROR"
End With
With .Bars.Add("ERROR")
.Color = RGB(255,0,0)
.Pattern = 1
.Height = 7
End With
End With
With .Items
h = .AddItem("")
.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"A","A"
.AddBar h,"Task",#1/3/2001#,#1/5/2001#,"B","B"
.CellValue(h,0) = .IntersectBars(h,"A",h,"B")
h = .AddItem("")
.AddBar h,"Task",#1/6/2001#,#1/9/2001#,"A","A"
.AddBar h,"Task",#1/10/2001#,#1/13/2001#,"B","B"
.CellValue(h,0) = .IntersectBars(h,"A",h,"B")
h = .AddItem("")
.AddBar h,"Task",#1/6/2001#,#1/9/2001#,"B","B"
.AddBar h,"Task",#1/10/2001#,#1/13/2001#,"A","A"
.CellValue(h,0) = .IntersectBars(h,"A",h,"B")
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1551
|
Is it possible to change the font size of the header compared to that of the control. I would like to make the font of the headers smaller
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.HeaderHeight = 32
With .Columns
With .Add("ID")
.HTMLCaption = "<font ;16>ID"
.Width = 32
.AllowSizing = False
End With
.Add("Task").HTMLCaption = "<font ;16>Task"
End With
.FocusColumnIndex = 1
.ShowFocusRect = False
.Chart.PaneWidth(True) = 0
With .Items
.CellValue(.AddItem(1),1) = "Task A"
.CellValue(.AddItem(2),1) = "Task B"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1550
|
How can I create items and bars at runtime
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Columns
With .Add("ID")
.FormatColumn = "1 index ''"
.Width = 32
.AllowSizing = False
End With
.Add("Task").Editor.EditType = 1
End With
.FocusColumnIndex = 1
.ShowFocusRect = False
With .Chart
.PaneWidth(False) = 128
.FirstVisibleDate = #1/1/2001#
.AllowCreateBar = 1
End With
G2antt1.Template = "Chart.Bars(""Task""){Def(3) = ""<%=%C1%>"";Def(4)=18}"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1549
|
How can I a group summary bar with a task bar, so when the summary bar changes the task bar will move accordingly
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.Columns.Add "Task"
With .Chart
.PaneWidth(False) = 128
.FirstVisibleDate = #1/1/2001#
End With
With .Items
hSummary = .AddItem("Summary")
.AddBar hSummary,"Summary",#1/2/2001#,#1/2/2001#
hTask = .AddItem("Task A")
.AddBar hTask,"Task",#1/2/2001#,#1/5/2001#
.DefineSummaryBars hSummary,"",hTask,""
hTask = .AddItem("Task B")
.AddBar hTask,"Task",#1/4/2001#,#1/8/2001#
.DefineSummaryBars hSummary,"",hTask,""
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
1548
|
How can I show the bars using a solid color, with no pattern inside
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.DefaultItemHeight = 24
.DrawGridLines = -1
With .Chart
.DrawGridLines = -1
.NonworkingDays = 0
.PaneWidth(False) = 128
.FirstVisibleDate = #1/1/2001#
.Bars.Item("Task").Pattern = 1
End With
.Columns.Add "Column"
With .Items
h = .AddItem("Solid A")
.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"A"
.AddBar h,"Task",#1/5/2001#,#1/7/2001#,"B"
.ItemBar(h,"B",33) = 255
.AddBar h,"Task",#1/8/2001#,#1/10/2001#,"C"
.ItemBar(h,"C",33) = 65280
h = .AddItem("Solid B")
.AddBar h,"Task",#1/2/2001#,#1/4/2001#,"A"
.ItemBar(h,"A",7) = 255
.AddBar h,"Task",#1/5/2001#,#1/7/2001#,"B"
.ItemBar(h,"B",33) = 255
.ItemBar(h,"B",7) = 65280
.AddBar h,"Task",#1/8/2001#,#1/10/2001#,"C"
.ItemBar(h,"C",33) = 16711680
.ItemBar(h,"C",7) = 16711935
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1547
|
Basically what I am trying to do is replicate MS Project look & feel. Is that possible
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .VisualAppearance
.Add 1,"gBFLBCJwBAEHhEJAEGg4BNUMQAAYAQGKIYBkAKBQAGaAoDDMOQ4QwAAxDCKsEwsACEIrjKCRShyCYZRhGcTALD8EhhECTZKkAYQEiKLoaRzAcwyDAcQRFCKUJxhEYZa" & _
"i+NobSBQMZqBQgASIUCLZ5ACSYEigAovTULCKwJiWNZDUTRcTxCKQahLLivIhGUYKfgmY5lT5VUT1HS9IShJSmKTlORLOi+M4zUJLc4SVblGz7FyfYDBKygLqqFigLAx" & _
"dDYTRNfzjHiTKbtGA7MADA4DVTAeC2bC+EYVTytY4sHQrIACZ5iWREMhXTi0E4rTa6dTxaS6KzKGqsZbsNAbHLdHTfVy1Mx1XaobqDJZdaTpdjaTDeJSjVjKdx4TZqSi" & _
"zjSGJOgcU4RhcIQDDURhIESXwEGgbQJBQQjeggQBiC4NJAluGJrAUB5Lmmc56n4Pp/i+NQjmqdQ5k2J5+AGAAgCgFgEgAHxQAGfoBmAOA2AaAxghgLgOgMIJ4AoER8mE" & _
"WBSBoNohHKAgZgSYgIHYH4ImCB5OAqBghjiEgcgmIQoioD4IiKGJGCsUgUHiVirmOBQVAEgI="
.Add 39,"CP:1 -1 -1 0 0"
.Add 40,"gBFLBCJwBAEHhEJAEGg4BEcMQAAYAQGKIYBkAKBQAGaAoDDMOQ4QwAAxDCKsEwsACEIrjKCRShyCYZRhGcTAFD8EhhECTZKkAZwEiKLoaRzAcwyDAcQRFCKUJxlKa5P" & _
"jaLwAAbJMZKAqDDgBIijIqnKA5JoyKIkTzCIJxXScByDGqNaQoehYXhEMg1CTXVgRCKoYTDBKybLqGT6VoCP5vWJaURWHZFTTJOyNagmSJ6XACbQMW7gNYQGBEEigNIx" & _
"ToOU4jFDGIB2VAQRK5BDQbQSFCpIRCCRQYhcQJ6YIAD76HomS5NU7UNKhHSdMy3J6ra5sOqbBqWa5LWjbNq3DadSzvPKub5vexwHwWawSUDkOR5Li+M43S4JPS5bZdDx" & _
"PiWVJrnWOw9F6XxTiGWpsHcO5+C6Xx7kOZpwHoOxeF8T4fkeYJgnEdZwOwQRBnSex9H6f4vk+c5xn4fZQhQBCAg=="
.Add 41,"gBFLBCJwBAEHhEJAEGg4BQICg6AADACAxRDAMkOQAGaAoDDUMQyQwAAxDSK8EwsACEIrjKCRShyCYZRhGcTALBMIwKGABIRGUZJGDkOYgDCBEhTHDUOwHGyQYDkCQoR" & _
"iYMAwTBQMaTXDdCQ1ECkJomObqAgkMZCTbKMySAA0NgPD6sKSjOIRSDUJZcV5EoAKfiqZIRSJSMZVLLVNSVJipAAlOTZPo6JJuTLOE4WVRcSydH6oAApeg6KoYAFzQAE" & _
"DCbYgOTKBYLUOCwTZmDwTK6BcTtXDbejeYYcZ7DNj2NYtJ4TRCBcpzLLIXrCKg0TBPQ4YNC2DT5VDWIq1aDdQo7MpxWjlGI5Ri2c51UDSYi0G4tDyLSYWXDfFSQTrHDQ" & _
"XhAAghCUAxJgyaB1DkGRyDCKBhAiGwLg0DYhCKDI8CcVwIAwRotBeAYCCmBZ0nsfR+n+L5PlYE53BwTpzn4AIAiAGAOAMfZfmeVBwDuD54C4DYDCCaA6AgQJfHGPJtD+" & _
"YRoGIF4GGGrAAH2RpjjCf4IGIOIKCSCQhmeXBtDqT54i4LYLCKaI6CkfRGlOKgtg2IxYl4OoMkwIYwmkP5jmkAg/hAZAYnAaw6A+eQeEmEgkikKg8BqDkYFCFIlBkThT" & _
"g8BoThif4WGWORqFyFwjkGIJlD+ZgphIY4ZGYWYEmSGQmjGIhthvMpwGcOJPnmTh1h0JxploPAZg4I5+HyH4nlmfh/g8BhTgSf4hGgegagiIlShCYA/miahCg+JBpUIY" & _
"w3k+ehehmJgpioaoWDeKYagAY4oioSZFn2BQfFGCJdD+aoqjKK4rGqWJwGENwPnqTo1i1gtiBgDYzn6PIviuWp+j+DwFnMaJ/jEbB7BqSIyCOQR4lkP5smsQpPjQbQbD" & _
"SWI0C0cR6lmNpqGMCgJDCBZTFyf44G4O4KmSOWTnCVg/m6K4ymuOxu4OWw1E+e5OnWPQvGvYgWg0Q5+nyP4vlvE+OBMTJ/kEcB8BsCJCDATArA6QhxAgeIgkScRMFcFp" & _
"FlCFAEICA"
.Add 42,"gBFLBCJwBAEHhEJAEGg4BY8MQAAYAQGKIYBkAKBQAGaAoDDMOQ4QwAAwjQLMEwsACEIrjKCRShyCYZRhGcTALD8EhhECTZKkAYgEiKLoaRzAcwyDAcQRFCKUJxhEY5a" & _
"i+NobRCAUiwHQUBr/I4AKLfeJ5dACKYNShRMrSABMNgZBKpJAqKiqJoiFoRDINIi2BYUIhqGCxYRseyZegmEYWVTREr3HKsVTtAanjZSJakXxnGaQJ7jKaLXo6II8YTI" & _
"WBABaIAQiBahQArOiKchaTZ5YheFRYVBOG4bK6BcguW4qGxSXpuRxZOo2YAFVzNNC3YzkCIcegnIp9ZxeFK5Tg1Z4XKTaNwqPBcYpHPqdVhCOgYZwUb5XMjWNatLYIbo" & _
"ziiUhzCAeJeG6ZAAAiBIUA0JgziGVJkGUGJIBgUYSBEN5VBoGxCEUHItjSFAxBcRhim4dIqFGTB+BUfxfneegAgCYAoBQFR+lQeASAEBRIGESAogMYJ4DoEIEmCaAqAo" & _
"JoGGCbgYgaIYYG4HoHGICByCKAoKmGZBOgkYh4hoKIKmKKI2CmC5giMBINBgY0AjODRjgiXg6g2I8glUKAHEifhBhAJApBYRIRmQOQmAoOgLBIEhMhOJJZD4UoUGUSRC" & _
"FaAoOHKPIAhYZY5GoXIXmWaYGF2GJlgKMB9DmZhpiIZ4aGaSYuG6GomigWgGDmCohmYdIdicWZeHqHRnCgHgIh8aAIBoCA/lAECAg"
End With
.Appearance = 671088640 ' &H28000000
.BackColor = RGB(255,255,255)
.BackColorLevelHeader = RGB(255,255,255)
.BackColorHeader = &H27000000
.SelBackColor = RGB(0,0,0)
.SelForeColor = RGB(255,255,255)
With .Chart
.BackColorLevelHeader = &H27000000
.BackColor = RGB(255,255,255)
.Bars.Item("Task").Color = &H2a000000
End With
.FilterBarBackColor = &H1000000
.Background(32) = &H29000000
.Background(64) = &H1000000
.Background(18) = &H1000000
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1546
|
Is there anyway to change the style of the splitter which separates the list/chart
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
.Background(0) = &H1000000
.Background(18) = &H1ff0000
End With
End Function
</SCRIPT>
</BODY>
|
|
1545
|
Does your control support subscript or superscript, in HTML captions
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
With .Chart
.FirstVisibleDate = #1/1/2001#
.PaneWidth(False) = 64
End With
.Columns.Add "Column"
With .Items
h = .AddItem("Item 1")
.AddBar h,"Task",#1/2/2001#,#1/4/2001#,""
.ItemBar(h,"",3) = "<sha ;;0>Event <b><font ;6><off -6>2<off 4>3<off 4>1"
.ItemBar(h,"",4) = 18
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
1544
|
I have noticed that the column's header is changed once the cursor hovers it. Is it possible to change that visual appearance
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
With .Columns
.Add "Column 1"
.Add "Column 2"
End With
.BackColorHeader = &H1000000
.Background(32) = &H12d86ff
End With
End Function
</SCRIPT>
</BODY>
|
|
1543
|
Is it possible to change the visual appearance of the columns selector/floating bar(3)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.ColumnAutoResize = False
With .Columns
.Add "Column 1"
.Add("Column 2").Visible = False
End With
.VisualAppearance.Add 2,"c:\exontrol\images\normal.ebn"
.VisualAppearance.Add 3,"c:\exontrol\images\pushed.ebn"
.Background(92) = &H2000000
.Background(87) = &H3000000
.Background(93) = RGB(246,245,240)
.ColumnsFloatBarVisible = True
End With
End Function
</SCRIPT>
</BODY>
|
|
1542
|
Is it possible to change the visual appearance of the columns selector/floating bar(2)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.ColumnAutoResize = False
With .Columns
.Add "Column 1"
.Add("Column 2").Visible = False
End With
.VisualAppearance.Add 3,"c:\exontrol\images\pushed.ebn"
.Background(87) = &H3000000
.ColumnsFloatBarVisible = True
End With
End Function
</SCRIPT>
</BODY>
|
|
1541
|
Is it possible to change the visual appearance of the columns selector/floating bar(1)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.VisualAppearance.Add 2,"c:\exontrol\images\normal.ebn"
.Background(92) = &H2000000
.Background(87) = RGB(246,245,240)
.Background(93) = RGB(246,245,240)
.ColumnsFloatBarVisible = True
End With
End Function
</SCRIPT>
</BODY>
|
|
1540
|
I am using the ColumnsFloatBarVisible property on True, but still not able to add any column on that list
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.ColumnAutoResize = False
With .Columns
.Add "Column 1"
.Add("Column 2").Visible = False
End With
.ColumnsFloatBarVisible = True
End With
End Function
</SCRIPT>
</BODY>
|
|
1539
|
Is it possible to list a column to columns selector/floating bar, but still user can use it
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.ColumnAutoResize = False
With .Columns
.Add "Column 1"
.Add("Column 2").Visible = False
With .Add("Column 3")
.Visible = False
.Enabled = False
End With
End With
.ColumnsFloatBarVisible = True
End With
End Function
</SCRIPT>
</BODY>
|
|
1538
|
How can I prevent a specific column not to be listed in the columns selector/floating bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.ColumnAutoResize = False
With .Columns
.Add "Column 1"
.Add("Column 2").Visible = False
With .Add("Column 3")
.Visible = False
.AllowDragging = False
End With
End With
.ColumnsFloatBarVisible = True
End With
End Function
</SCRIPT>
</BODY>
|
|
1537
|
Is it possible to change the "Columns" caption being shown in the columns selector/floating bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.ColumnAutoResize = False
With .Columns
.Add "Column 1"
.Add("Column 2").Visible = False
End With
.Description(26) = "Hidden Columns"
.ColumnsFloatBarVisible = True
End With
End Function
</SCRIPT>
</BODY>
|
|
1536
|
How can I show the columns selector, so the user can drag and drop columns to the view
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.ColumnAutoResize = False
With .Columns
.Add "Column 1"
.Add("Column 2").Visible = False
End With
.ColumnsFloatBarVisible = True
End With
End Function
</SCRIPT>
</BODY>
|
|
1535
|
The column's header is changed while the cursor hovers it. Is it possible to prevent that
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
With .Columns
.Add "Column 1"
.Add "Column 2"
End With
.Background(32) = -1
End With
End Function
</SCRIPT>
</BODY>
|
|
1534
|
Is there any property I can save and restore automatically the current setting, column position, size, and so on (2)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Columns.Add "Column"
With .Items
.AddItem "Item 1"
.AddItem "Item 2"
.AddItem "Item 3"
End With
.Layout = "Select=""0"";SingleSort=""C0:2"";Columns=1"
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1533
|
Is there any property I can save and restore automatically the current setting, column position, size, and so on (1)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Columns.Add "Column"
With .Items
.AddItem "Item 1"
.AddItem "Item 2"
.AddItem "Item 3"
End With
.Layout = "gBjAAwAAuABmABpABsAB0ABlAByhoAPIAOEPAA9gYABoABQAgUEg0XN4AOcJicKkpujMbjsfkMFk0YhkQgUOjUEl8gjcGO0ok8KMULjEaGMcj08kQAO8oMkTNEtGwAG" & _
"QAqc7gUlhh1ABtAEsk9GpEfhElgVcsMupNlnlonlaAFcr0shUsp8QPEtnVJqJhmcIhUMh0QiU5sYAqMngUSuEMw07k8Qv0SgVRrNEuVflF2jF5x9JyNEm0TjQijemyE0" & _
"jE3t+YruauoAu4Az1qj9BzRn0UzksSnAA0xDjY6qnAw8OiUQ0dwzN0zWz2t7j8/xURAGNvWH6k8xlEhklhEI0O/6QAgI="
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1532
|
How do I arrange my columns on multiple levels
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.ColumnAutoResize = False
.DrawGridLines = -1
With .Columns
With .Add("C0")
.ExpandColumns = "1,2"
.DisplayExpandButton = False
End With
.Add "C1"
.Add "C2"
.Add "C3"
With .Add("C4")
.ExpandColumns = "5,6"
.DisplayExpandButton = False
End With
.Add "C5"
With .Add("C6")
.ExpandColumns = "6,7"
.DisplayExpandButton = False
End With
.Add "C7"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1531
|
Does your control support expandable header or columns, so I can arrange it on multiple levels
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.DrawGridLines = -1
.BackColorLevelHeader = RGB(240,240,240)
With .Columns
With .Add("Photo")
.AllowSizing = False
.Width = 32
End With
.Add "Personal Info"
.Add "Title"
.Add "Name"
.Add "First"
.Add "Last"
.Add "Address"
.Item("Personal Info").ExpandColumns = "2,3"
With .Item("Name")
.ExpandColumns = "4,5"
.Expanded = False
End With
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1530
|
I need a Day/Hour Display where the Bars should be created/resized in a 15 Minute Scale in a normal View, but in a 5 Minute Scale when on an InsideZoom. How can I do that
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Columns.Add "Task"
With .Chart
.PaneWidth(False) = 128
.AllowCreateBar = 1
.UnitWidth = 50
.FirstVisibleDate = #1/1/2013#
.LevelCount = 2
.Level(0).Label = 4096
.Level(1).Label = "<%h%>:<%nn%>"
.Level(1).Unit = 1048576
.Level(1).Count = 60
.ResizeUnitScale = 1048576
.ResizeUnitCount = 15
.AllowInsideZoom = True
With .DefaultInsideZoomFormat
.InsideCount = 5
.InsideUnit = 1048576
.InsideLabel = "<%nn%>"
End With
End With
With .Items
.AddItem "Item"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1529
|
Can I change the format of date to be shown in the control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.Chart.PaneWidth(True) = 0
With .Columns
.Add "Default"
With .Add("Format.1")
.ComputedField = "%0"
.FormatColumn = "dateF(value) replace `/` with `-`"
End With
With .Add("Format.2")
.ComputedField = "%0"
.Def(17) = 1
.FormatColumn = "`<b>`+ shortdate(value) + `</b> ` + timeF(value)"
End With
With .Add("Format.3")
.ComputedField = "%0"
.Def(17) = 1
.FormatColumn = "` <b>`+ ( weekday(value) case ( 0 : `Su`; 1 : `Mo`; 2 : `Tu`; 3 : `We`; 4 : `Th`; 5 : `Fr`; 6 : `Sa`) ) + `</b> ` + ( dateF(val" & _
"ue) replace `/` with `-` )"
End With
End With
With .Items
.AddItem #1/1/2001 10:00:00 AM#
.AddItem #1/2/2001 10:00:00 AM#
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
1528
|
How can I display a text/caption on the chart part of the control
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.AntiAliasing = True
With .Chart
.FirstVisibleDate = #12/26/2000#
.PaneWidth(False) = 128
End With
.Columns.Add "Column"
With .Items
h1 = .AddItem("Item 1")
.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"A"
.ItemBar(h1,"A",3) = "text"
h1 = .AddItem("Item 2")
.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"A"
.ItemBar(h1,"A",3) = "text outside associated with a bar"
.ItemBar(h1,"A",4) = 18
h1 = .AddItem("Item 3")
.AddBar h1,"",#1/2/2001#,#1/2/2001#,"A"
.ItemBar(h1,"A",3) = "text with no bar associated"
h1 = .AddItem("Item 4")
.AddBar h1,"Task",#1/2/2001#,#1/5/2001#,"A"
h1 = .AddItem("Item 5")
h1 = .AddItem("Item 6")
h1 = .AddItem("Item 7")
h1 = .AddItem("Item 8")
.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"A"
h1 = .AddItem("Item 8")
.AddBar h1,"Task",#1/2/2001#,#1/6/2001#,"A"
End With
With .Chart.Notes
.Add("1S",G2antt1.Items.ItemByIndex(3),"A","<font ;6>Movable Note Inside the Bar").PartCanMove(0) = True
.Add "AK",G2antt1.Items.ItemByIndex(6),#1/6/2001#,"Note associated with a date: <%mm%>/<%dd%>/<%yyyy%>"
With .Add("2S",G2antt1.Items.ItemByIndex(7),"A","<font ;6>Fixed Note Left")
.ShowLink = 0
.PartVOffset(1) = 0
.PartHOffset(0) = -32
.PartShadow(1) = False
.PartBackColor(1) = RGB(255,255,0)
End With
With .Add("3S",G2antt1.Items.ItemByIndex(8),"A","Start<br><%mmm%> <%d%> <%yyyy%>")
.PartCanMove(1) = True
.PartHOffset(1) = -64
.LinkStyle = 2
.LinkWidth = 2
.LinkColor = RGB(0,0,255)
End With
With .Add("3F",G2antt1.Items.ItemByIndex(8),"A","End<br><%mmm%> <%d%> <%yyyy%>")
.RelativePosition = 1
.PartCanMove(1) = True
.LinkStyle = 2
.LinkWidth = 2
.LinkColor = RGB(0,0,255)
End With
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1527
|
Which is the best way of change Bar parent
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.Debug = True
.Chart.FirstVisibleDate = #1/1/2001#
.Columns.Add "Column"
With .Items
h1 = .AddItem("Item 1")
.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"A"
h2 = .AddItem("Item 2")
.AddBar h2,"Task",#1/3/2001#,#1/5/2001#,"B"
h3 = .AddItem("Item 3")
.AddBar h3,"Task",#1/5/2001#,#1/7/2001#,"A"
.ItemBar(h3,"A",512) = h1
alert( "The Bar A of H3 fails to change the parent to H1 as it has already a bar named A" )
.ItemBar(h3,"A",512) = h2
alert( "The Bar A of H3 can be moved to H2, as it contains no bars with the key A" )
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
1526
|
Is it possible to have a bar in bar
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .VisualAppearance
.Add 1,"gBFLBCJwBAEHhEJAEGg4BS4Dg6AADACAxRDAMgBQKAAzQFAYbBmGaGAAGIZhQgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDKAkRRdDSOYDmGQYDiCIoRShOMIjR" & _
"LUXxtDYEIRkSZYJAKCTtBwJAAURRULR6ACUYDnSRqGj6CQKRqEVBSLAdKyXJKvaZhGIRSDUJZkWZEIyjBY8EzXNqrIDoGKqYgOQ4XV5TFgxPR9IyhEAaLrleT5TjOII/" & _
"RpOEpYXSVHxFRAAAYhG4wABCXAAXjYF5Udhlfx3FCvMbqeCcSgOWoDZZRFa0PjVQQtNC4IitGzrMqrNaDSBlGigBauKw3TKlMzye7repOA5+aJGVz7VgfGz7EDjKg0GJ" & _
"cgMex3lOZB5jgPYHHMaYxjeRBilWbZNG4B49l2do6hkfIhECUhjDoHROEYUYMgEbQMCEEx+lGIY0CQUQJHYGoUgQGBFkgB4FmkOINiMbBrAwQoxngSQMCCYJAG8DYCkM" & _
"ZJNDOAhAHCbYGGGOBqByB5hiMcJSDORhwjQKoEkKSIgHoEZEDgWJOECSwyGSGwjkWUJUh8HADiiXA6CSRgQliFwcgcSICB2EJkCKDIAB4CAxDgMoOiOIkfA4CoiDCDhA" & _
"mUEg4hEF4DHKCByA8JYpHIWwbAMIIuC6EIkCiOBwA2QpSHQbgOkoIZMD2GxmnmOhVhUJQiEwYAOAoQZQD6HhnjmaIfBuQ5BlQPQLiMEhuEKIRHmEKA7h+Q5ChQdQPmia" & _
"hCg+JBnDAAhVCVPpoicHYEAobodicKZqHqGAO0YNA0ikQxKg6IYnAqAZcEGKxqnqOowiUZRSFwYwPAqIZkEOLhrjqaIqB4BAqn6QYwCwKwWkSMZECKLo6jKBA7DKTItW" & _
"EZBlA8SpRmwRY1G0exYi0HoEEsbpdjcLZrgaYI4kQQo6laOYEFuIpojQCJiHAZgPksAZ0EePBvDuSp0j2bxrmadY+m8QpGnKP4EHwAwAjsCZxiQQQtAgAQrAiQowhKUB" & _
"/BIcJsEMD5EHETBPBYEhLFwJwZBKMY8G6bAoEaIQMjcIIEkzUZJAscgEEuShyjyKwskucpskQSwuDITJQEyTYzGuMIjBsBBCmiBATjObQDD+UB0E0DxGlCNINASO5PnS" & _
"MQ7E2Uxu3CbQRguUgYFCVR1H0WxYC2R5xDSDgVWiXA8AyNggksXwPDWQQ3FgL4IHERxsluNpdj6bAqAacQckAEQBQWxfDzF4BUYYqBKhEEQNMDgPQGhFGIDgVwKR3iiC" & _
"iIIIgig+BfA2MYOLtAqA4ESCYDIFgVDyGEKkPAQgFBDDwG4DYnQzg5GiDIOAZw3hCDoA8MQIA9PeGEHkRIyx6jiOMEoTAxRMhoCeIwUQKSbCKH6NgV43AECyFeEkEQdB" & _
"TAxC0FESQYhgB+DGPcTwYBXBZEeCIOoKg5j6EIJAbQNxJCjCAMAJwDRxghA4DEBYpk1hnHwH4DIxg3AaFGGgMQFwHhBHgGkewhhCDIHMDkDY0AlAGEAIAgIA="
.Add 2,"c:\exontrol\images\normal.ebn"
.Add 3,"CP:2 2 -4 2 4"
End With
With .Chart
.PaneWidth(0) = 256
.LevelCount = 2
.FirstVisibleDate = #1/1/2001#
End With
.Columns.Add "Info"
With .Items
h = .AddItem("Range Moveable Frame")
.AddBar h,"Task",#1/4/2001#,#1/8/2001#,"F"
.ItemBar(h,"F",6) = "This bar can be moved inside the displayed range."
.ItemBar(h,"F",22) = #1/2/2001#
.ItemBar(h,"F",25) = #1/18/2001#
.ItemBar(h,"F",26) = 32
.ItemBar(h,"F",27) = 90
h = .AddItem("Range Moveable Pattern")
.AddBar h,"Task",#1/6/2001#,#1/10/2001#,"F"
.ItemBar(h,"F",6) = "This bar can be moved inside the displayed range."
.ItemBar(h,"F",22) = #1/2/2001#
.ItemBar(h,"F",25) = #1/18/2001#
.ItemBar(h,"F",26) = 1
.ItemBar(h,"F",27) = 90
h = .AddItem("Range Moveable EBN Transparent")
.AddBar h,"Task",#1/8/2001#,#1/12/2001#,"F"
.ItemBar(h,"F",6) = "This bar can be moved inside the displayed range."
.ItemBar(h,"F",22) = #1/2/2001#
.ItemBar(h,"F",25) = #1/18/2001#
.ItemBar(h,"F",26) = 16777216
.ItemBar(h,"F",27) = 50
h = .AddItem("Range Moveable EBN Opaque 1")
.ItemHeight(h) = 24
.AddBar h,"Task",#1/10/2001#,#1/14/2001#,"F"
.ItemBar(h,"F",6) = "This bar can be moved inside the displayed range."
.ItemBar(h,"F",22) = #1/2/2001#
.ItemBar(h,"F",25) = #1/18/2001#
.ItemBar(h,"F",26) = 33554432
h = .AddItem("Range Moveable EBN Opaque 2")
.ItemHeight(h) = 24
.AddBar h,"Task",#1/12/2001#,#1/16/2001#,"F"
.ItemBar(h,"F",6) = "This bar can be moved inside the displayed range."
.ItemBar(h,"F",22) = #1/2/2001#
.ItemBar(h,"F",25) = #1/18/2001#
.ItemBar(h,"F",26) = 50331648
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1525
|
How can I show vertical lines using the SelectDate
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .VisualAppearance
.Add 1,"gBFLBCJwBAEHhEJAEGg4BK8IQAAYAQGKIYBkAKBQAGaAoDDYMwzQwAAxDMKEEwsACEIrjKCRShyCYZRhGcTAFD8EhhECTY4lCQJAiKLoeQLHMBybJ8LwiGQaRJmeaYR" & _
"DUMI6QjPVARVIkaxhCSSaKpIAIBEB"
End With
With .Chart
.PaneWidth(False) = 0
.FirstVisibleDate = #1/1/2008#
.MarkTodayColor = .BackColor
.LevelCount = 2
.AllowSelectDate = False
.MarkSelectDateColor = &H1000000
.SelectLevel = 1
.SelectDate(#1/15/2008#) = True
.SelectDate(#1/18/2008#) = True
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1524
|
How can I show vertical lines using the SelectDate
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Chart
.PaneWidth(False) = 0
.FirstVisibleDate = #1/1/2008#
.MarkTodayColor = .BackColor
.LevelCount = 2
.AllowSelectDate = False
.MarkSelectDateColor = &H7fff0000
.SelectLevel = 1
.SelectDate(#1/15/2008#) = True
.SelectDate(#1/18/2008#) = True
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1523
|
How can I find if there is any filter applied to the control
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_FilterChange()
With G2antt1
alert( "If negative, the filter is present, else not" )
alert( .Items.VisibleItemCount )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.LinesAtRoot = -1
.TreeColumnIndex = -1
.FilterInclude = 4
With .Columns.Add("Column")
.DisplayFilterButton = True
.FilterType = 240
.Filter = "C1"
End With
With .Items
h = .AddItem("R1")
.InsertItem h,,"C1"
.InsertItem h,,"C2"
.ExpandItem(h) = True
h = .AddItem("R2")
.InsertItem h,,"C1"
.InsertItem h,,"C2"
End With
.ApplyFilter
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1522
|
How can I prevent showing the lines for the hierarchy while using the exMatchingItemsOnly option
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.LinesAtRoot = -1
.TreeColumnIndex = -1
.FilterInclude = 4
With .Columns.Add("Column")
.DisplayFilterButton = True
.FilterType = 240
.Filter = "C1|C2"
End With
With .Items
h = .AddItem("R1")
.InsertItem h,,"C1"
.InsertItem h,,"C2"
.ExpandItem(h) = True
h = .AddItem("R2")
.InsertItem h,,"C1"
.InsertItem h,,"C2"
End With
.ApplyFilter
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1521
|
Is there any method to get only the matched items and not the items with his parent
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.LinesAtRoot = -1
.FilterInclude = 4
With .Columns.Add("Column")
.DisplayFilterButton = True
.FilterType = 240
.Filter = "C1|C2"
End With
With .Items
h = .AddItem("R1")
.InsertItem h,,"C1"
.InsertItem h,,"C2"
.ExpandItem(h) = True
h = .AddItem("R2")
.InsertItem h,,"C1"
.InsertItem h,,"C2"
End With
.ApplyFilter
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1520
|
Is it possible to specify a working day exception that would override the non-working day pattern
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Columns.Add "Pattern"
With .Chart
.FirstWeekDay = 1
.FirstVisibleDate = #1/24/2008#
.PaneWidth(False) = 52
.LevelCount = 2
End With
With .Items
.AddItem "Default"
.ItemNonworkingUnits(.AddItem("1/26/2008"),False) = "weekday(value) case (default:0 ; 0:1; 6:(value != #1/26/2008#))"
.ItemNonworkingUnits(.AddItem("1/27/2008"),False) = "weekday(value) case (default:0 ; 0:(value != #1/27/2008#); 6:1)"
.ItemNonworkingUnits(.AddItem("Sundays"),False) = "weekday(value) = 0"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1519
|
How do I enable the scrollbar-extension, as thumb to be shown outside of the control's client area
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.ScrollBars = 15
.Chart.ToolTip = ""
.ScrollPartVisible(0,65536) = True
.ScrollPartVisible(1,65536) = True
.ScrollPartVisible(2,65536) = True
.ScrollWidth = 4
.Background(276) = RGB(240,240,240)
.Background(260) = RGB(128,128,128)
.ScrollHeight = 4
.Background(404) = .Background(276)
.Background(388) = .Background(260)
.Background(511) = .Background(276)
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1518
|
Is it possible to associate an extra frame, border, EBN to the bar/task
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .VisualAppearance
.Add 1,"gBFLBCJwBAEHhEJAEGg4BNACg6AADACAxRDAMgBQKAAzQFAYbhsGCGAAGEZBQgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDEAkRRdDSOYDmGQYDiCIoRShOMaTV" & _
"J8bQ2ASEaAmWK3boUAJFPrFc6ABJMZRRISXJABeKwRoGJYaUhRdDRNCIZBqEqua7iEZRQqCCZkWZPNTRVScByhF61IDpWjKLDKJJwXBMcxyBL0NRxFTAKawGoYbq0AJQ" & _
"VTQcZPVhgAYYfSlMDuOB5Gq+G5SQjhWIgBjde4dRrHYrsGyQAp7JJoWLZMQyFIFIYNTS8LgpPI6LyyP5rABhWw5PiUVyfWTMdwzPatbyKHJicbpepWPxcNYtNzcNb3SA" & _
"bn+KgAmqP5yDiIAACIEhQDSGJOgcU4RhQYwgFUQwIESXxEGgbQJBQQhzHmUAAGILh0lWbpEGIIQQHuegaAaoRYBUBYBCgFAOAOQJgC4CgCCCQAUAQARACgRZFEa3ogCc" & _
"CICDCDZ9AeH5wGgFoHmAUBIA6CJgiALgMAIABYiYER+BuMIyC4CZjAcYgygyYxIlYNoNBGMJGDoCximiXg+g+Yx0G0DgNiOIJGECEZkgQbA7A8A5JA4SITmOZBsEGFJD" & _
"kkLhQhXOItBYEZEGEHBCBARApGIYh1EAaIoAMQIEkENBNBGZpJg4YgCGcAAaGUAAFCmVhqBMZppGADQDACQAmAwAAFgoBh1BSJ4ZFwEEdHmcFmgWag2gEFhoFlINYkoH" & _
"AQAABhKGQX4jGkGQ8BiJ5BDqBAABqKl1GSJxkgAcoqAYAR3lQcIrkaOoSiiEZCBCBAgiqAaJHaLpHBqQoliaBZxHwWYwkUQRMFQExEmENBJBIRIBAgQwQkOYJ0D4DhDg" & _
"CYAzjWQpgjwLgKi2QIWl4CACADeofC4SpsHcHArlqRBqBkbpLAaQoxAUQRQE6PLoCaT40AOYJ6lWNdXlAL4/m2QIql4CRAAQBCAg="
.Add 2,"CP:1 -4 -4 4 4"
End With
.Columns.Add "Task"
.DrawGridLines = -1
With .Chart
.FirstVisibleDate = #1/1/2001#
.PaneWidth(False) = 128
.DrawGridLines = -1
End With
With .Items
.AddBar .AddItem("Task"),"Task",#1/2/2001#,#1/5/2001#,"K1"
h = .AddItem("Task/ EBN Frame")
.ItemHeight(h) = 32
.AddBar h,"Task",#1/3/2001#,#1/15/2001#,"K2"
.ItemBar(h,"K2",51) = 33554432
h = .AddItem("Task/ EBN Frame")
.ItemHeight(h) = 32
.AddBar h,"Task",#1/3/2001#,#1/15/2001#,"K2"
.ItemBar(h,"K2",51) = 50331392
.AddBar .AddItem("Task"),"Task",#1/2/2001#,#1/5/2001#,"K3"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1517
|
Is it possible to automatically display the working days duration in a column
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Columns
.Add "Tasks"
With .Add("Duration")
.Def(18) = 513
.Def(19) = "A"
End With
With .Add("Working")
.Def(18) = 258
.Def(19) = "A"
End With
End With
.Items.AllowCellValueToItemBar = True
With .Chart
.PaneWidth(False) = 256
.FirstVisibleDate = #1/3/2002#
.LevelCount = 2
End With
With .Items
h = .AddItem("Task 1")
.AddBar h,"Task",#1/4/2002#,#1/8/2002#,"A"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1516
|
How can I apply colors to columns section of the control based on properties of the displaying bars
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_BarResize(Item,Key)
With G2antt1
.Refresh
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
With .Columns.Add("<fgcolor=FF0000>Tasks > 2 days")
.HTMLCaption = .Caption
End With
With .Columns.Add("PropertyBar")
.Visible = False
.Def(19) = ""
.Def(18) = 513
End With
.Items.AllowCellValueToItemBar = True
With .Chart
.LevelCount = 2
.FirstVisibleDate = #1/1/2001#
.PaneWidth(False) = 96
.NonworkingDays = 0
End With
With .ConditionalFormats.Add("%1 > 2")
.ForeColor = RGB(255,0,0)
.Bold = True
End With
.SelBackColor = .BackColor
.SelForeColor = .ForeColor
With .Items
.AddBar .AddItem("Task 1"),"Task",#1/2/2001#,#1/4/2001#,""
.AddBar .AddItem("Task 2"),"Task",#1/4/2001#,#1/7/2001#,""
.AddBar .AddItem("Task 1"),"Task",#1/2/2001#,#1/4/2001#,""
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1515
|
Is it possible to update the colors on columns caption to highlight the critical path ( CPM )
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_BarResize(Item,Key)
With G2antt1
.Items.SchedulePDM Item,Key
.Refresh
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Columns.Add "Task"
With .Columns.Add("PropertyBar")
.Visible = False
.Def(19) = ""
.Def(18) = 269
End With
.Items.AllowCellValueToItemBar = True
With .Chart
.FirstVisibleDate = #1/1/2001#
.PaneWidth(False) = 48
.NonworkingDays = 0
End With
With .ConditionalFormats.Add("%1 != 0")
.ForeColor = RGB(255,0,0)
.Bold = True
End With
.SelBackColor = .BackColor
.SelForeColor = .ForeColor
With .Items
h1 = .AddItem("Task 1")
.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,""
h2 = .AddItem("Task 2")
.AddBar h2,"Task",#1/2/2001#,#1/4/2001#,""
.AddLink "L1",h1,"",h2,""
h3 = .AddItem("Task 3")
.AddBar h3,"Task",#1/2/2001#,#1/4/2001#,""
.AddLink "L2",h2,"",h3,""
h4 = .AddItem("Task 3")
.AddBar h4,"Task",#1/2/2001#,#1/3/2001#,""
.AddLink "L3",h2,"",h4,""
.DefSchedulePDM(5) = 255
.DefSchedulePDM(7) = 255
.SchedulePDM 0,""
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1514
|
I am using the AddShapeCorner to define icon-bars. Is it possible to define with a different color
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
With .Chart
.FirstVisibleDate = #1/1/2001#
.PaneWidth(False) = 128
With .Bars
.AddShapeCorner 12345,1
With .Copy("Milestone","Original")
.StartShape = 12345 ' &H3020 Or ShapeCornerEnum.exShapeIconVBar Or ShapeCornerEnum.exShapeIconRight
.StartColor = -1
End With
With .Copy("Milestone","Red")
.StartShape = 12345 ' &H3020 Or ShapeCornerEnum.exShapeIconVBar Or ShapeCornerEnum.exShapeIconRight
.StartColor = RGB(255,0,0)
End With
With .Copy("Milestone","Green")
.StartShape = 12345 ' &H3020 Or ShapeCornerEnum.exShapeIconVBar Or ShapeCornerEnum.exShapeIconRight
.StartColor = RGB(0,255,0)
End With
End With
End With
.Columns.Add "Column"
With .Items
.AddBar .AddItem("Original"),"Original",#1/2/2001#,#1/2/2001#
.AddBar .AddItem("Red"),"Red",#1/2/2001#,#1/2/2001#
.AddBar .AddItem("Green"),"Green",#1/2/2001#,#1/2/2001#
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1513
|
My icon-bars shows different when displaying in the chart. Any ideas
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
.Chart.FirstVisibleDate = #1/1/2001#
With .Chart.Bars
.AddShapeCorner 12345,1
With .Item("Milestone")
.StartShape = 12345 ' &H3020 Or ShapeCornerEnum.exShapeIconVBar Or ShapeCornerEnum.exShapeIconRight
.StartColor = -1
End With
End With
.Columns.Add "Column"
With .Items
.AddBar .AddItem("Item 1"),"Milestone",#1/2/2001#,#1/2/2001#
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
1512
|
The items are not colored in the chart panel
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.Chart.PaneWidth(False) = 128
.Columns.Add "Default"
With .Items
h = .AddItem("Item")
G2antt1.Chart.ItemBackColor(h) = RGB(0,255,0)
G2antt1.Items.ItemBackColor(h) = RGB(0,255,0)
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
1511
|
I need to know how to determine the critical path (CPM) after the SchedulePDM procedure, so I can turn red the bars and links
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_BarResize(Item,Key)
With G2antt1
.Items.SchedulePDM Item,Key
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Columns.Add "Task"
With .Chart
.FirstVisibleDate = #1/1/2001#
.PaneWidth(False) = 48
.NonworkingDays = 0
End With
With .Items
h1 = .AddItem("Task 1")
.AddBar h1,"Task",#1/2/2001#,#1/4/2001#,"K1"
h2 = .AddItem("Task 2")
.AddBar h2,"Task",#1/2/2001#,#1/4/2001#,"K2"
.AddLink "L1",h1,"K1",h2,"K2"
h3 = .AddItem("Task 3")
.AddBar h3,"Task",#1/2/2001#,#1/4/2001#,"K3"
.AddLink "L2",h2,"K2",h3,"K3"
h4 = .AddItem("Task 3")
.AddBar h4,"Task",#1/2/2001#,#1/3/2001#,"K4"
.AddLink "L3",h2,"K2",h4,"K4"
.DefSchedulePDM(5) = 255
.DefSchedulePDM(7) = 255
.SchedulePDM 0,"K1"
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1510
|
How can I display the Year in Thai, Buddhist, Korean format
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
With .Chart
.FirstWeekDay = .LocFirstWeekDay ' .LocFirstWeekDay
.MonthNames = .LocMonthNames
.WeekDays = .LocWeekDays
.AMPM = .LocAMPM
.LevelCount = 2
.PaneWidth(False) = 0
.UnitScale = 4096
With .Level(0)
.Label = "<%mmmm%> <%d%>, <%loc_yyyy%> <r><%ww%>"
.Unit = 256
.ToolTip = .Label
End With
.ToolTip = "<%ddd%> <%m%>/<%d%>/<%loc_yyyy%>"
End With
.Description(17) = .Chart.MonthNames
.DefaultEditorOption(30) = .Chart.MonthNames
End With
End Function
</SCRIPT>
</BODY>
|
|
1509
|
How does localization work
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
With .Chart
.FirstWeekDay = .LocFirstWeekDay ' .LocFirstWeekDay
.MonthNames = .LocMonthNames
.WeekDays = .LocWeekDays
.AMPM = .LocAMPM
.LevelCount = 2
.PaneWidth(False) = 0
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
1508
|
Is it possible to show the bars with a different brightness (2)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
With .VisualAppearance
.Add 1,"C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task--.ebn"
.Add 2,"C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task-.ebn"
.Add 3,"C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task.ebn"
.Add 4,"C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task+.ebn"
.Add 5,"C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task++.ebn"
End With
With .Chart
.FirstVisibleDate = #1/1/2001#
.PaneWidth(False) = 128
.NonworkingDays = 0
.Bars.Copy("Task","--").Color = &H1000000
.Bars.Copy("Task","-").Color = &H2000000
.Bars.Item("Task").Color = &H3000000
.Bars.Copy("Task","+").Color = &H4000000
.Bars.Copy("Task","++").Color = &H5000000
End With
.Columns.Add "Brightness"
With .Items
h = .AddItem("0%")
.AddBar h,"--",#1/2/2001#,#1/4/2001#,"--"
.AddBar h,"-",#1/5/2001#,#1/7/2001#,"-"
.AddBar h,"Task",#1/8/2001#,#1/10/2001#,""
.AddBar h,"+",#1/11/2001#,#1/13/2001#,"+"
.AddBar h,"++",#1/14/2001#,#1/16/2001#,"++"
h = .AddItem("25%")
.AddBar h,"--",#1/2/2001#,#1/4/2001#,"--"
.AddBar h,"-",#1/5/2001#,#1/7/2001#,"-"
.AddBar h,"Task",#1/8/2001#,#1/10/2001#,""
.AddBar h,"+",#1/11/2001#,#1/13/2001#,"+"
.AddBar h,"++",#1/14/2001#,#1/16/2001#,"++"
.ItemBar(h,"<*>",19) = 25
h = .AddItem("50%")
.AddBar h,"--",#1/2/2001#,#1/4/2001#,"--"
.AddBar h,"-",#1/5/2001#,#1/7/2001#,"-"
.AddBar h,"Task",#1/8/2001#,#1/10/2001#,""
.AddBar h,"+",#1/11/2001#,#1/13/2001#,"+"
.AddBar h,"++",#1/14/2001#,#1/16/2001#,"++"
.ItemBar(h,"<*>",19) = 50
h = .AddItem("75%")
.AddBar h,"--",#1/2/2001#,#1/4/2001#,"--"
.AddBar h,"-",#1/5/2001#,#1/7/2001#,"-"
.AddBar h,"Task",#1/8/2001#,#1/10/2001#,""
.AddBar h,"+",#1/11/2001#,#1/13/2001#,"+"
.AddBar h,"++",#1/14/2001#,#1/16/2001#,"++"
.ItemBar(h,"<*>",19) = 75
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
1507
|
Is it possible to show the bars with a different brightness (1)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.VisualAppearance.Add 1,"c:\exontrol\images\normal.ebn"
With .Chart
.Bars.Item("Task").Color = &H1000000
.FirstVisibleDate = #1/1/2001#
.PaneWidth(False) = 128
End With
.Columns.Add "Brightness"
With .Items
h = .AddItem("0%")
.AddBar h,"Task",#1/2/2001#,#1/4/2001#
h = .AddItem("25%")
.AddBar h,"Task",#1/2/2001#,#1/4/2001#
.ItemBar(h,"",19) = 25
h = .AddItem("50%")
.AddBar h,"Task",#1/2/2001#,#1/4/2001#
.ItemBar(h,"",19) = 50
h = .AddItem("75%")
.AddBar h,"Task",#1/2/2001#,#1/4/2001#
.ItemBar(h,"",19) = 75
End With
End With
End Function
</SCRIPT>
</BODY>
|
|
1506
|
So the behavior I am looking for is that a change can cascade through a bar's successors, but a change that would affect a bar's predecessors is not allowed. Is this possible to in ExG2antt
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.MarkSearchColumn = False
.OnResizeControl = 1
.Columns.Add "Tasks"
.Columns.Add("Start").Visible = False
.Columns.Add("End").Visible = False
With .Chart
.LevelCount = 2
.FirstVisibleDate = #9/18/2006#
.PaneWidth(0) = 64
.ScrollRange(0) = .FirstVisibleDate
.ScrollRange(1) = #12/31/2006#
.MarkSelectDateColor = &H7fff0000
.SelectLevel = 1
.SelectDate(#9/19/2006#) = True
.AllowCreateBar = 0
.AllowLinkBars = 0
End With
With .Items
h = .AddItem("Project")
.CellValue(h,1) = #9/21/2006#
.CellValue(h,2) = #10/3/2006#
.AddBar h,"Summary",.CellValue(h,1),.CellValue(h,2),"sum"
h1 = .InsertItem(h,,"Task 1")
.CellValue(h1,1) = .CellValue(h,1)
.CellValue(h1,2) = #9/24/2006#
.AddBar h1,"Task",.CellValue(h1,1),.CellValue(h1,2),"K1"
.ItemBar(h1,"K1",22) = #9/20/2006#
h2 = .InsertItem(h,,"Task 2")
.CellValue(h2,1) = .CellValue(h1,2)
.CellValue(h2,2) = #9/28/2006#
.AddBar h2,"Unknown",.CellValue(h2,1),.CellValue(h2,2),"K2"
.AddLink "L1",h1,"K1",h2,"K2"
h3 = .InsertItem(h,,"Task 3")
.CellValue(h3,1) = .CellValue(h2,2)
.CellValue(h3,2) = .CellValue(h,2)
.AddBar h3,"Task",.CellValue(h3,1),.CellValue(h3,2),"K3"
.AddLink "L2",h2,"K2",h3,"K3"
.GroupBars h1,"K1",False,h2,"K2",True,31,"0;4"
.GroupBars h2,"K2",False,h3,"K3",True,31,"0;2"
.DefineSummaryBars h,"sum",h1,"K1"
.DefineSummaryBars h,"sum",h2,"K2"
.DefineSummaryBars h,"sum",h3,"K3"
.ExpandItem(h) = True
.ItemBold(h) = True
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1505
|
How can I have a case-insensitive filter (exFilterDoCaseSensitive flag is not set)
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Chart.PaneWidth(True) = 0
.MarkSearchColumn = False
With .Columns
With .Add("Car")
.DisplayFilterButton = True
.FilterType = 240
.Filter = "MAZDA"
End With
With .Add("Equipment")
.DisplayFilterButton = True
.DisplayFilterPattern = False
.CustomFilter = "Air Bag||*Air Bag*|||Air condition||*Air condition*|||ABS||*ABS*|||ESP||*ESP*"
.FilterType = 3
.Filter = "AIR BAG"
End With
End With
With .Items
.CellValue(.AddItem("Mazda"),1) = "Air Bag"
.CellValue(.AddItem("Toyota"),1) = "Air Bag,Air condition"
.CellValue(.AddItem("Ford"),1) = "Air condition"
.CellValue(.AddItem("Nissan"),1) = "Air Bag,ABS,ESP"
.CellValue(.AddItem("Mazda"),1) = "Air Bag, ABS,ESP"
.CellValue(.AddItem("Mazda"),1) = "ABS,ESP"
End With
.ApplyFilter
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1504
|
How can I have a case-sensitive filter
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Chart.PaneWidth(True) = 0
.MarkSearchColumn = False
With .Columns
With .Add("Car")
.DisplayFilterButton = True
.FilterType = 496 ' FilterTypeEnum.exFilterDoCaseSensitive Or FilterTypeEnum.exFilter
.Filter = "Mazda"
End With
With .Add("Equipment")
.DisplayFilterButton = True
.DisplayFilterPattern = False
.CustomFilter = "Air Bag||*Air Bag*|||Air condition||*Air condition*|||ABS||*ABS*|||ESP||*ESP*"
.FilterType = 259 ' FilterTypeEnum.exFilterDoCaseSensitive Or FilterTypeEnum.exPattern
.Filter = "Air Bag"
End With
End With
With .Items
.CellValue(.AddItem("Mazda"),1) = "Air Bag"
.CellValue(.AddItem("Toyota"),1) = "Air Bag,Air condition"
.CellValue(.AddItem("Ford"),1) = "Air condition"
.CellValue(.AddItem("Nissan"),1) = "Air Bag,ABS,ESP"
.CellValue(.AddItem("Mazda"),1) = "Air Bag, ABS,ESP"
.CellValue(.AddItem("Mazda"),1) = "ABS,ESP"
End With
.ApplyFilter
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1503
|
Is it possible to add a custom label to the days with a specified background color
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Columns.Add "Task"
With .Chart
.FirstVisibleDate = #1/1/2001#
.PaneWidth(False) = 48
End With
With .Items
h1 = .AddItem("Task 1")
.AddBar h1,"",#1/2/2001#,#1/8/2001#,"K1","Leave Blank"
.ItemBar(h1,"K1",29) = False
.ItemBar(h1,"K1",7) = 255
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|
|
1502
|
What is the event fired when I change "...Chart.PaneWidthLeft" (or "...Chart.PaneWidthRight") in the Gantt splitter window
<BODY onload="Init()">
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_ChartEndChanging(Operation)
With G2antt1
alert( "End Operation(exVSplitterChange(10)" )
alert( Operation )
alert( "PaneWidth:" )
alert( .Chart.PaneWidth(0) )
End With
End Function
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
Function G2antt1_ChartStartChanging(Operation)
With G2antt1
alert( "Start Operation(exVSplitterChange(10)" )
alert( Operation )
alert( "PaneWidth:" )
alert( .Chart.PaneWidth(0) )
End With
End Function
</SCRIPT>
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
End Function
</SCRIPT>
</BODY>
|
|
1501
|
I want to ask if I can select more than one bar in the chart and move them together
<BODY onload="Init()">
<OBJECT CLASSID="clsid:CD481F4D-2D25-4759-803F-752C568F53B7" id="G2antt1"></OBJECT>
<SCRIPT LANGUAGE="VBScript">
Function Init()
With G2antt1
.BeginUpdate
.Columns.Add "Task"
With .Chart
.FirstVisibleDate = #12/29/2000#
.PaneWidth(False) = 64
.LevelCount = 2
End With
With .Items
.AddBar .AddItem("Task 1"),"Task",#1/2/2001#,#1/4/2001#,"K1"
.AddBar .AddItem("Task 2"),"Task",#1/4/2001#,#1/6/2001#,"K2"
.AddBar .AddItem("Task 3"),"Task",#1/8/2001#,#1/10/2001#,"K3"
h = .AddItem("")
.AddBar h,"",#1/8/2001#,#1/10/2001#,"","<b>Right click</b> the chart, start dragging to select multiple bars<br>or click a bar while pressing the <b>CTRL</b> key"
.ItemHeight(h) = 36
.ItemBar(h,"",29) = False
End With
.EndUpdate
End With
End Function
</SCRIPT>
</BODY>
|